home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / util / cdity / MCXPrefs.lha / MCXPrefs / Install_MCXPrefs < prev    next >
Encoding:
Text File  |  1999-05-09  |  2.0 KB  |  53 lines
  1. ; $VER: 1.0 (09.05.99)
  2. (set cx(askdir(prompt "Select the location for MCXPrefs")
  3.   (help "The preferences will be installed to this location.") (default "SYS:Prefs/")))
  4.  
  5. (copyfiles
  6.   (prompt("Proceed with installation of MCXPrefs?"))
  7.   (source "MCXPrefs") (dest cx) (infos) (confirm) (help "You do want to install MCXPrefs?"))
  8.  
  9. (complete 20)
  10.  
  11. (set gd(askdir(prompt "Select the location for the AmigaGuide set")
  12.   (help "The AmigaGuide set will be installed to this location.") (default "SYS:Prefs/")))
  13.  
  14. (copyfiles
  15.   (prompt("Proceed with installation of the AmigaGuide set?" gd))
  16.   (source "MCXGuides") (dest gd) (infos) (all) (confirm) (help "Installation of the AmigaGuide set is recommended."))
  17.  
  18. (complete 40)
  19.  
  20. (set wb1 (/(getversion "L:WBStart-Handler")65536))
  21. (set wb2 (-(getversion "L:WBStart-Handler")(* wb1 65536)))
  22. (set wb3 (/(getversion "L/WBStart-Handler")65536))
  23. (set wb4 (-(getversion "L/WBStart-Handler")(* wb3 65536)))
  24.  
  25. (copyfiles
  26.   (prompt("Current WBStart-Handler is %ld.%ld\n\nInstall %ld.%ld?" wb1 wb2 wb3 wb4))
  27.   (source "L/WBStart-Handler") (dest "L:") (confirm) (help "WBStart-Handler must be installed."))
  28.  
  29. (complete 60)
  30.  
  31. (set df1 (/(getversion "Libs:diskfont.library")65536))
  32. (set df2 (-(getversion "Libs:diskfont.library")(* df1 65536)))
  33. (set df3 (/(getversion "Libs/diskfont.library")65536))
  34. (set df4 (-(getversion "Libs/diskfont.library")(* df3 65536)))
  35.  
  36. (copyfiles
  37.   (prompt("Current diskfont.library is %ld.%ld\n\nInstall %ld.%ld?" df1 df2 df3 df4))
  38.   (source "Libs/diskfont.library") (dest "Libs:") (confirm) (help "diskfont.library must be installed."))
  39.  
  40. (complete 80)
  41.  
  42. (set rq1 (/(getversion "Libs:reqtools.library")65536))
  43. (set rq2 (-(getversion "Libs:reqtools.library")(* rq1 65536)))
  44. (set rq3 (/(getversion "Libs/reqtools.library")65536))
  45. (set rq4 (-(getversion "Libs/reqtools.library")(* rq3 65536)))
  46.  
  47. (copyfiles
  48.   (prompt("Current reqtools.library is %ld.%ld\n\nInstall %ld.%ld?" rq1 rq2 rq3 rq4))
  49.   (source "Libs/reqtools.library") (dest "Libs:") (confirm) (help "Installation of the reqtools.library is recommended."))
  50.  
  51. (complete 100)
  52.  
  53. (set @default-dest cx)